home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_501_EachWindow < prev    next >
Encoding:
Text File  |  1992-04-08  |  2.6 KB  |  110 lines
  1. %case zbuildOrder%
  2.     %if not rsrcID = 200%
  3.         {    z%windname%.p%        %}
  4.     %endif%
  5. %case buildOrder%
  6.     %if not rsrcID = 200%
  7.         {    %windname%.p%        %}
  8.     %endif%
  9. %case sourcefile%
  10.     %if not rsrcID = 200%
  11.         %if firstWindow%
  12.             %genfile zWindow z+windname+.p%
  13.             %if not fileExists windname+.p%
  14.                 %genfile Window windname+.p%
  15.             %endif%
  16.         %else%
  17.             %genfile zSubWindow z+windname+.p%
  18.             %if not fileExists windname+.p%
  19.                 %genfile SubWindow windname+.p%
  20.             %endif%
  21.         %endif%
  22.     %endif%
  23. %case instance%
  24.     %if not rsrcID = 200%
  25.         var
  26.             its%windname%:%        %C%windname%;
  27.     %endif%
  28. %case create%
  29.     %if not rsrcID = 200%
  30.         New (its%windname%);
  31.         its%windname%.I%windname% (self, itsData);
  32.         %if firstWindow%
  33.             itsMainPane := its%windname%.itsMainPane;
  34.             itsWindow := its%windname%;
  35.         %endif%
  36.  
  37.     %endif%
  38. %case zinterface%
  39.     %if not rsrcID = 200%
  40.         %if firstWindow%
  41.             type
  42.                 Z%WindName%        = object (CWindow)
  43.                     itsMainPane:    CPane;
  44.     
  45.                     {Panes in this window:}
  46.                     %for each item gen instance%
  47.     
  48.                     Procedure IZ%WindName%%    %(aSupervisor:    CDirector);
  49.                     %for each item gen zAuxiliaryMethod.decl%
  50.     
  51.                     Procedure DoCommand        (theCommand:    longint);    override;
  52.     
  53.                 end; {Z%WindName%}
  54.     
  55.         %else%
  56.             type
  57.                 Z%WindName%        = object (CDirector)
  58.                     {Panes in this window:}
  59.                     %for each item gen instance%
  60.     
  61.                     Procedure IZ%WindName%%    %(aSupervisor:    CDirector);
  62.                     %for each item gen zAuxiliaryMethod.decl%
  63.     
  64.                     Procedure DoCommand        (theCommand:    longint);    override;
  65.     
  66.                 end; {Z%WindName%}
  67.     
  68.         %endif%
  69.     %endif%
  70. %case interface%
  71.     %if not rsrcID = 200%
  72.         %if firstWindow%
  73.             %for each item gen auxiliaryClass%
  74.             type
  75.                 C%WindName%        = object (Z%WindName%)
  76.                     itsData:%        %C%appname%Data;
  77.     
  78.                     Procedure I%WindName%%    %(aSupervisor:%        %CDirector;
  79.                                              theData:            C%appname%Data);
  80.                     Procedure UpdateMenus;                                override;
  81.                     Procedure DoCommand        (theCommand:    longint);    override;
  82.     
  83.                     Procedure ProviderChanged    (aProvider:        CCollaborator;
  84.                                                  reason:        longint;
  85.                                                  info:            UNIV Ptr);    override;
  86.                     %for each item gen auxiliaryMethod.decl%
  87.     
  88.                 end; {C%WindName%}
  89.     
  90.         %else%
  91.             %for each item gen auxiliaryClass%
  92.             type
  93.                 C%WindName%        = object (Z%WindName%)
  94.                     itsData:%        %C%appname%Data;
  95.     
  96.                     Procedure I%WindName%%    %(aSupervisor:%        %CDirector;
  97.                                              theData:            C%appname%Data);
  98.                     Procedure UpdateMenus;                                override;
  99.                     Procedure DoCommand        (theCommand:    longint);    override;
  100.     
  101.                     Procedure ProviderChanged    (aProvider:        CCollaborator;
  102.                                                  reason:        longint;
  103.                                                  info:            UNIV Ptr);    override;
  104.                     %for each item gen auxiliaryMethod.decl%
  105.     
  106.                 end; {C%WindName%}
  107.     
  108.         %endif%
  109.     %endif%
  110.